home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_11_(11-1984).d64 / one touch (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  29 lines
  1. 1 POKE56,208:POKE55,0:F=0:C=PEEK(55)-120:IFC<0THENC=C+256:F=-1
  2. 2 D=PEEK(56)+F:POKE55,C:POKE56,D
  3. 3 S=828:I=146:GOSUB100
  4. 10 DATA32,198,3,165,55,133,251,133,253,165,56,133,252,133,254,169
  5. 15 DATA49,133,167,169,133,133,168,169,13,32,210,255,169,70,32,210
  6. 20 DATA255,165,167,32,210,255,169,61,32,210,255,169,63,32,210,255
  7. 25 DATA169,32,32,210,255,32,207,255,72,160,0,165,168,145,55,104
  8. 30 DATA32,198,3,201,13,240,14,201,95,208,2,169,13,145,55,32
  9. 35 DATA207,255,76,124,3,230,167,165,167,41,1,208,10,24,165,168
  10. 40 DATA105,4,133,168,76,170,3,56,165,168,233,3,133,168,165,167
  11. 45 DATA201,57,144,163,120,169,L0,141,20,3,169,H0,141,21,3,88
  12. 50 DATA169,0,133,167,32,68,166,76,116,164,166,55,208,2,198,56
  13. 55 DATA198,55,96
  14. 56 S=PEEK(55)+256*PEEK(56):I=120:GOSUB100
  15. 57 SYS(828)
  16. 58 END
  17. 60 DATA165,167,240,59,160,0,177,251,32,L99,H0,176,12,165,55,197
  18. 65 DATA251,208,21,165,56,197,252,208,15,169,0,133,167,165,253,133
  19. 70 DATA251,165,254,133,252,76,49,234,166,198,177,251,157,119,2,230
  20. 75 DATA198,32,L111,H0,165,198,201,11,144,204,230,167,76,49,234,165
  21. 80 DATA215,32,L99,H0,176,3,76,49,234,165,8,41,1,208,247,160
  22. 85 DATA0,177,251,197,215,208,6,32,L111,H0,76,L6,H0,32,L111,H0
  23. 90 DATA76,L81,H0,201,133,144,6,201,141,176,2,56,96,24,96,166
  24. 95 DATA251,208,2,198,252,198,251,96,0,0
  25. 100 F=0:FORD=STOS+I:READA$:IFASC(A$)<58THENA=VAL(A$):GOTO115
  26. 105 IFASC(A$)=76THENA=VAL(RIGHT$(A$,LEN(A$)-1))+PEEK(55):IFA>255THENA=A-256:F=1
  27. 110 IFASC(A$)=72THENA=VAL(RIGHT$(A$,LEN(A$)-1))+PEEK(56)+F:F=0
  28. 115 POKED,A:NEXT:RETURN
  29.